-- http://www.wowhead.com/?quests=10.210&filter=maxrl=79;si=1;cr=29:27:2:11;crs=2:2:1:4;crv=0:0:0:1
-- 131 quests found
local quests = {12806,12807,12810,12814,12839,12840,12887,12891,12893,12896,12898,12938,12939,12943,12949,12951,12955,12982,12992,12999,13008,13036,13039,13040,13042,13043,13044,13045,13059,13068,13070,13072,13073,13074,13075,13076,13077,13079,13080,13081,13082,13083,13084,13085,13086,13091,13092,13104,13105,13106,13110,13117,13118,13119,13120,13121,13122,13125,13130,13133,13134,13135,13136,13138,13139,13140,13141,13143,13144,13145,13146,13147,13152,13155,13157,13160,13168,13169,13170,13171,13172,13174,13211,13212,13213,13220,13221,13225,13226,13231,13232,13235,13286,13287,13288,13290,13291,13296,13314,13315,13318,13319,13320,13321,13332,13334,13341,13342,13380,13381,13383,13386,13387,13388,13389,13390,13391,13392,13393,13394,13395,13396,13397,13398,13399,13400,13401,13402,13403,13418,13482}

local f = CreateFrame"Frame"

f:SetScript("OnEvent", function (self)
	self:RegisterEvent"QUEST_QUERY_COMPLETE"
	self:UnregisterEvent"PLAYER_LOGIN"
	self:SetScript("OnEvent", function (self)
		local completed, incomplete = {}, {}
		local total = 0
		GetQuestsCompleted(completed)
		for quest in pairs(completed) do
			total = total + 1
		end
		for _, quest in ipairs(quests) do
			if not completed[quest] then
				incomplete[quest] = true
			end
		end
		print(("%d / %d incomplete quests in icecrown found (%d checked)"):format(#incomplete, #quests, total))
		if next(incomplete) then
			print(("Quests: %s"):format(table.concat(incomplete, ',')))
		end
		self:UnregisterEvent"QUEST_QUERY_COMPLETE"
		self:SetScript("OnEvent", nil)
	end)
	QueryQuestsCompleted()
end)

f:RegisterEvent"PLAYER_LOGIN"
